home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Development
/
Source
/
DBL Pascal Library
/
SFGetFolder 6 ƒ
/
SFGetFolder_Test.p
< prev
next >
Wrap
Text File
|
1993-06-01
|
249b
|
21 lines
program SFGetFolder_Test;
uses
SFGetFolder;
var
where: Point;
dirID: Longint;
good: Boolean;
begin
ShowText;
repeat
SetPt(where, 50, 50);
good := SFGetFolder(where, dirID);
if good then
WriteLn(dirID);
until not good;
end.